﻿Public Class Query_Wizard
    Dim grich As RichTextBox
    Dim i As Integer
    Public Function gt(ByVal lrich As RichTextBox) As String
        grich = lrich
        Me.Show()
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        grich.Text = "RAMAN chante khaegi kya "
        Me.Close()
    End Sub

    Private Sub FlowLayoutPanel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FlowLayoutPanel2.Click
        Dim a As New DataGridView
        a.RowHeadersVisible = False
        a.Columns.Add("Aa" & i, "A")
        'a.Columns(0).CellType=
        a.Columns.Add("Bb" & i, "A")
        a.Name = "A" & i
        AddHandler a.CellBeginEdit, AddressOf DataGridView1_CellBeginEdit
        FlowLayoutPanel2.Controls.Add(a)
    End Sub

    Private Sub FlowLayoutPanel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles FlowLayoutPanel2.Paint

    End Sub

    Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
        MsgBox(e.RowIndex)
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub Query_Wizard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class